home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / proxies / curentproxies.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  4.1 KB  |  159 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="refresh" content=20>
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7. </head>
  8.  
  9. <body>
  10. <p><big><strong><font face="Arial">Current proxies</font></strong></big></p>
  11. <div align="center"><center>
  12. <table border="1" cellpadding="0" cellspacing="0" width="100%">
  13.     <tr>
  14.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  15.             Type
  16.         </font></strong></td>
  17.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  18.             Running
  19.         </font></strong></td>
  20.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  21.             Enabled
  22.         </font></strong></td>
  23.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  24.             Log
  25.         </font></strong></td>
  26.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  27.             In
  28.         </font></strong></td>
  29.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  30.             Fwd
  31.         </font></strong></td>
  32.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  33.             Out
  34.         </font></strong></td>
  35.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  36.             OutIP
  37.         </font></strong></td>
  38.         <td align="center" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  39.             Action
  40.         </font></strong></td>
  41.     </tr>
  42. <%
  43.     for i = 1 to Proxies.count
  44.        Set proxy = Proxies.item(i)
  45.             strProps = proxy.GetPropertyNames
  46. %>
  47.     <tr>
  48.         <td align="center"><strong><font face="Arial">
  49.             <%Response.Write(proxy.Type)%>
  50.         </font></strong></td>
  51.         <td align="center"><font face="Arial">
  52.             <%
  53.                 if proxy.Running Then
  54.                     Response.Write("Yes")
  55.                 Else
  56.                     Response.Write("<b><font color=""#ff0000"">No</font></b>")
  57.                 End If
  58.             %>
  59.         </font></td>
  60.         <%
  61.             propVal = "<b>-</b>"
  62.             if( InStr(strProps,"Enabled") > 0 ) then
  63.                 propVal = proxy.GetBoolProperty("Enabled")
  64.                 if propVal Then
  65.                     propVal = "Yes"
  66.                 Else
  67.                     propVal = "No"
  68.                 End if
  69.             End if
  70.         %>
  71.         <td align="center"><font face="Arial">
  72.             <%Response.Write(propVal)%>
  73.         </font></td>
  74.  
  75.         <%
  76.             propVal = "<b>-</b>"
  77.             if( InStr(strProps,"Logging") > 0 ) then
  78.                 propVal = proxy.GetBoolProperty("Logging")
  79.                 if propVal Then
  80.                     propVal = "Yes"
  81.                 Else
  82.                     propVal = "No"
  83.                 End if
  84.             End if    
  85.         %>
  86.         <td align="center"><font face="Arial">
  87.             <%Response.Write(propVal)%>
  88.         </font></td>
  89.  
  90.         <%
  91.             propVal = "<b>-</b>"
  92.             if( InStr(strProps,"Input_Port") > 0 ) then
  93.                 propVal = proxy.GetNumberProperty("Input_Port")
  94.             End if    
  95.         %>
  96.         <td align="center"><font face="Arial">
  97.             <%Response.Write(propVal)%>
  98.         </font></td>
  99.  
  100.         <%
  101.             propVal = "<b>-</b>"
  102.             if( InStr(strProps,"Forwarding_Enabled") > 0 ) then
  103.                 propVal = proxy.GetBoolProperty("Forwarding_Enabled")
  104.                 if propVal Then
  105.                     propVal = "Yes"
  106.                 Else
  107.                     propVal = "No"
  108.                 End if
  109.             End if    
  110.         %>
  111.         <td align="center"><font face="Arial">
  112.             <%Response.Write(propVal)%>
  113.         </font></td>
  114.  
  115.         <%
  116.             propVal = "<b>-</b>"
  117.             if( InStr(strProps,"Output_Port") > 0 ) then
  118.                 propVal = proxy.GetNumberProperty("Output_Port")
  119.                 if propVal = 0 Then
  120.                     propVal = "<b>-</b>"
  121.                 end if
  122.             End if    
  123.         %>
  124.         <td align="center"><font face="Arial">
  125.             <%Response.Write(propVal)%>
  126.         </font></td>
  127.  
  128.         <%
  129.             propVal = "<b>-</b>"
  130.             if( InStr(strProps,"Output_Address") > 0 ) then
  131.                 propVal = proxy.GetStringProperty("Output_Address")
  132.                 if Len(propVal) = 0 Then
  133.                     propVal = "<b>-</b>"
  134.                 End if
  135.             End if    
  136.         %>
  137.         <td align="center"><font face="Arial">
  138.             <%Response.Write(propVal)%>
  139.         </font></td>
  140.  
  141.       <form action="/proxies/editproxy.agp" method="POST">
  142.         <td align="center" nowrap="True">
  143.             <input type="hidden" name="ProxyNo" value="<%Response.Write( i )%>" >
  144.             <input type=submit name="action" value="   Edit   ">
  145.             <input type=submit name="action" value="Delete">
  146.         </td>
  147.       </form>
  148.     </tr>
  149. <%
  150.     next
  151. %>
  152.     </table>
  153. </center></div>
  154. <br>
  155. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  156.  
  157. </body>
  158. </html>
  159.